home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / wildcat / allfl_20.zip / AFLREG.WCX (.txt) < prev    next >
Wildcat! WCX  |  1996-01-01  |  9KB  |  459 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  9049 bytes  01/28/123  10:06:42pm
  3. '! Code Segment Size  :5469 bytes
  4. '! Data Segment Size  :10048 bytes
  5. '! String Segment Size:3580 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Type Type30
  9.         s0 As String*25
  10.         s25(0 To 3) As String*50
  11.         s225(0 To 1) As String*15
  12.         s255 As String*77
  13.         o332 As Boolean
  14.         s333 As String*14
  15.         s347 As String*8
  16.         s355(0 To 14) As String*50
  17.         o1105 As Boolean
  18.       End Type
  19.  
  20.       Type Type29
  21.         s0 As String*25
  22.         s25(0 To 3) As String*50
  23.         s225(0 To 1) As String*15
  24.         s255 As String*77
  25.         o332 As Boolean
  26.         s333 As String*14
  27.         s347 As String*8
  28.         s355(0 To 14) As String*50
  29.         o1105 As Boolean
  30.       End Type
  31.  
  32.       Type Type28
  33.         s0 As String*5
  34.         Filler5(1 To 388) As Byte
  35.         b393(1 To 4095) As Byte
  36.       End Type
  37.  
  38.       Type Type27
  39.         s0 As String*3
  40.         s3 As String*8
  41.         s11 As String*30
  42.         s41 As String*25
  43.         s66(1 To 10) As String*80
  44.         l866 As Long
  45.       End Type
  46.  
  47.       Type Type26
  48.         s0 As String*25
  49.         s25 As String*10
  50.         s35 As String*15
  51.         s50 As String*70
  52.         s120 As String*70
  53.       End Type
  54.  
  55.       Declare Function Func564(s65534 As String) As Long
  56. '!      Declare Function Func676(s65534 As String) As Boolean
  57.       Declare Function Func1199(l65534 As Long, l65532 As Long) As Long
  58. '!      Declare Sub Sub1252(l65534 As Long, l65532 As Long)
  59.       Declare Function Func1352(w65534 As Word) As Boolean
  60.       Declare Sub Sub1477(w65534 As Word)
  61.       Declare Sub Sub1614(w65534 As Word)
  62. '!      Declare Sub Sub1751(w65534 As Word)
  63. '!      Declare Sub Sub1853(s65534 As String)
  64. '!      Declare Sub Sub1930
  65. '!      Declare Sub Sub2004(s65534 As String)
  66. '!      Declare Sub Sub2100
  67. '!      Declare Sub Sub2125
  68.       Declare Sub Sub2145(s65534 As String, t29_65532 As Type29, o65530 As Boolean)
  69.       Declare Sub Sub3685
  70.       Declare Sub Sub3785
  71.  
  72.       Dim t26_4463 As Type26
  73.       Dim t27_4653 As Type27
  74.       Dim s5533 As String
  75.       Dim t28_5537 As Type28
  76.       Dim b10032(0 To 7) As Byte
  77.       Dim b10040(0 To 7) As Byte
  78.  
  79.       t26_4463.s0 = "proFILES"
  80.       t26_4463.s25 = "2.0"
  81.       t26_4463.s35 = "01/01/96"
  82.       t26_4463.s50 = "Copyright (C) 1996 Prasanth Pulavarthi. All Rights Reserved."
  83.       t26_4463.s120 = t26_4463.s0 + " " + t26_4463.s25 + " for Wildcat! 4.01+"
  84.       s5533 = ProgPath + "ALLFILES.DAT"
  85.       t28_5537.s0 = t26_4463.s25
  86.       b10032(0) = 1
  87.       b10032(1) = 2
  88.       b10032(2) = 4
  89.       b10032(3) = 8
  90.       b10032(4) = 16
  91.       b10032(5) = 32
  92.       b10032(6) = 64
  93.       b10032(7) = 128
  94.       b10040(0) = 254
  95.       b10040(1) = 253
  96.       b10040(2) = 251
  97.       b10040(3) = 247
  98.       b10040(4) = 239
  99.       b10040(5) = 223
  100.       b10040(6) = 191
  101.       b10040(7) = 127
  102.       Sub3785
  103.  
  104. '! Called 2 times
  105.       Function Func564(s65534 As String) As Long
  106.         Dim l65524 As Long
  107.         Dim i65528 As Integer
  108.  
  109.         l65524 = 0
  110.         i65528 = Len(s65534)
  111.   593   Do While i65528 > 0
  112.           l65524 = l65524 + Asc(Mid(s65534, i65528, 1))
  113.           i65528 = i65528 - 1
  114.         Loop
  115.   658   Func564 = l65524
  116.       End Function
  117.  
  118. '! Called 0 times
  119. '!      Function Func676(s65534 As String) As Boolean
  120. '!        Dim s65513 As String '! Temporary
  121. '!        Dim l65517 As Long
  122. '!        Dim s65519 As String '! Temporary
  123. '!        Dim i65521 As Integer
  124. '!        Dim s65523 As String
  125. '!        Dim i65527 As Integer
  126. '!        Dim l65529 As Long
  127.  
  128. '!        Func676 = 0
  129. '!        If Exists(ProgPath + s65534 + ".LIC") Then
  130. '!          Open ProgPath + s65534 + ".LIC" For Random As 1 Len = 880 '! This value should probably be replaced with a "SizeOf" expression
  131. '!          Get 1, -1, t27_4653 '! 880 bytes
  132. '!          Close 1
  133. '!          If t27_4653.s0 <> "LIC" Then
  134. '!          Else
  135. '!  796       If t27_4653.s3 <> s65534 Then
  136. '!            Else
  137. '!  826         If UCase(t27_4653.s11) <> UCase(MakeWild.BBSName) Then
  138. '!              Else
  139. '!  866           If UCase(t27_4653.s41) <> UCase(MakeWild.SysopName) Then
  140. '!                Else
  141. '!  906
  142. '!                  l65529 = Func564((t27_4653.s0 + t27_4653.s3 + t27_4653.s11 + t27_4653.s41))
  143. '!  996             For i65527 = 1 To 10 Step 1
  144. '!                    s65523 = t27_4653.s66(i65527)
  145. '!                    l65529 = l65529 + Func564((s65523))
  146. '!                  Next
  147. '! 1150             If l65529 <> t27_4653.l866 Then
  148. '!                  Else
  149. '! 1179               Func676 = -1
  150. '!                  End If
  151. '!                End If
  152. '!              End If
  153. '!            End If
  154. '!          End If
  155. '!        End If
  156. '! 1187
  157. '!      End Function
  158.  
  159. '! Called 1 time
  160.       Function Func1199(l65534 As Long, l65532 As Long) As Long
  161.         Func1199 = 0
  162.         If l65534 And l65532 Then
  163.           Func1199 = -1
  164.         End If
  165.  1244
  166.       End Function
  167.  
  168. '! Called 0 times
  169. '!      Sub Sub1252(l65534 As Long, l65532 As Long)
  170. '!        Dim l65524 As Long '! Temporary
  171. '!        Dim l65528 As Long '! Temporary
  172.  
  173. '!        If Func1199((l65534), (l65532)) Then
  174. '!          FlagClear l65534, l65532
  175. '!        Else
  176. '! 1334     FlagSet l65534, l65532
  177. '!        End If
  178. '! 1349
  179. '!      End Sub
  180.  
  181. '! Called 1 time
  182.       Function Func1352(w65534 As Word) As Boolean
  183.         If (t28_5537.b393(w65534 Div 8 + 1) And b10032(w65534 Mod 8)) <> 0 Then
  184.           Func1352 = -1
  185.         Else
  186.  1463     Func1352 = 0
  187.         End If
  188.  1469
  189.       End Function
  190.  
  191. '! Called 1 time
  192.       Sub Sub1477(w65534 As Word)
  193.         t28_5537.b393(w65534 Div 8 + 1) = t28_5537.b393(w65534 Div 8 + 1) Or b10032(w65534 Mod 8)
  194.       End Sub
  195.  
  196. '! Called 1 time
  197.       Sub Sub1614(w65534 As Word)
  198.         t28_5537.b393(w65534 Div 8 + 1) = t28_5537.b393(w65534 Div 8 + 1) And b10040(w65534 Mod 8)
  199.       End Sub
  200.  
  201. '! Called 0 times
  202. '!      Sub Sub1751(w65534 As Word)
  203. '!        Dim w65532 As Word '! Temporary
  204.  
  205. '!        If Func1352((w65534)) Then
  206. '!          Sub1614((w65534))
  207. '!        Else
  208. '! 1824
  209. '!          Sub1477((w65534))
  210. '!        End If
  211. '! 1850
  212. '!      End Sub
  213.  
  214. '! Called 0 times
  215. '!      Sub Sub1853(s65534 As String)
  216. '!        Dim i65532 As Integer
  217.  
  218. '!        i65532 = FreeFile
  219. '!        Open ProgPath + "PROFILES.LOG" For Append As i65532
  220. '!        Print #i65532, "      * "; s65534
  221. '!        Close i65532
  222. '!      End Sub
  223.  
  224. '! Called 0 times
  225. '!      Sub Sub1930
  226. '!        Dim i65534 As Integer
  227.  
  228. '!        i65534 = FreeFile
  229. '!        Open ProgPath + "PROFILES.LOG" For Append As i65534
  230. '!        Print #i65534, String(79, "-")
  231. '!        Close i65534
  232. '!      End Sub
  233.  
  234. '! Called 0 times
  235. '!      Sub Sub2004(s65534 As String)
  236. '!        Dim t65528 As Time
  237. '!        Dim i65532 As Integer
  238.  
  239. '!        i65532 = FreeFile
  240. '!        CurrentTime t65528
  241. '!        Open ProgPath + "PROFILES.LOG" For Append As i65532
  242. '!        Print #i65532, FormatTime(t65528, "hh:mm"); " "; s65534
  243. '!        Close i65532
  244. '!      End Sub
  245.  
  246. '! Called 0 times
  247. '!      Sub Sub2100
  248. '!        ActivityLog ProgName + " ERROR - See PROFILES.LOG for info."
  249. '!      End Sub
  250.  
  251. '! Called 0 times
  252. '!      Sub Sub2125
  253. '!        Delay 0
  254. '!      End Sub
  255.  
  256. '! Called 2 times
  257.       Sub Sub2145(s65534 As String, t29_65532 As Type29, o65530 As Boolean)
  258.         Dim l65511 As Long
  259.         Dim b65515 As Byte
  260.         Dim l65516 As Long
  261.         Dim b65520 As Byte
  262.         Dim d65521 As Date
  263.         Dim b65527 As Byte
  264.         Dim i65528 As Integer
  265.  
  266.         i65528 = FreeFile
  267.         Open s65534 For Output As i65528
  268.         Print #i65528, Spc(6); t26_4463.s120; " ("; t26_4463.s35; ")"
  269.         Print #i65528, Spc(6); t26_4463.s50
  270.         Print #i65528,
  271.         CurrentDate d65521
  272.         Print #i65528, Spc(6); "     Today: "; FormatDate(d65521, MakeWild.DateFormat)
  273.         Print #i65528, Spc(6); " Real Name: "; t29_65532.s0
  274.         Print #i65528, Spc(6); "   Address: "; t29_65532.s25(0)
  275.  2418   For b65527 = 1 To 3 Step 1
  276.           If t29_65532.s25(b65527) = "" Then
  277.             GoTo 2604
  278.           End If
  279.  2523     Print #i65528, Spc(6); "            "; t29_65532.s25(b65527)
  280.         Next
  281.  2604   Print #i65528, Spc(6); "   Voice #: "; t29_65532.s225(0)
  282.         Print #i65528, Spc(6); " BBS Phone: "; t29_65532.s225(1)
  283.         Print #i65528, Spc(6); "  Internet: "; t29_65532.s255
  284.         If t29_65532.o332 Then
  285.           Print #i65528, Spc(6); "Codes Thru: BBS"
  286.           Print #i65528, Spc(6); "  Password: "; t29_65532.s333
  287.           Print #i65528, Spc(6); "Birth Date: "; t29_65532.s347
  288.         Else
  289.  2861     Print #i65528, Spc(6); "Codes Thru: Internet"
  290.         End If
  291.  2881   If t29_65532.o1105 Then
  292.           Print #i65528, Spc(6); "SourceCode: YES"
  293.         Else
  294.  2925     Print #i65528, Spc(6); "SourceCode: NO"
  295.         End If
  296.  2945   Print #i65528, Spc(6); "  Comments: "; t29_65532.s355(0)
  297.  3021   For b65527 = 1 To 14 Step 1
  298.           If t29_65532.s355(b65527) = "" Then
  299.             GoTo 3209
  300.           End If
  301.  3127     Print #i65528, Spc(6); "            "; t29_65532.s355(b65527)
  302.         Next
  303.  3209   If Not o65530 Then
  304.           Print #i65528,
  305.           Print #i65528, Spc(6); "--Makewild Information--"
  306.           Print #i65528, Spc(6); "SysOp Name: "; MakeWild.SysopName
  307.           Print #i65528, Spc(6); "  BBS Name: "; MakeWild.BBSName
  308.           Print #i65528, Spc(6); "Reg Number: "; MakeWild.RegString
  309.           Print #i65528,
  310.           Print #i65528, Spc(6); "I agree that I will NOT distribute the registered version"
  311.           Print #i65528, Spc(6); "of proFILES or any files marked for registered users only."
  312.           Print #i65528,
  313.           If t29_65532.o1105 Then
  314.             Print #i65528, Spc(6); "I also acknowledge that I have purchased only a COPY of the"
  315.             Print #i65528, Spc(6); "source code and that all rights remain with the author.  I"
  316.             Print #i65528, Spc(6); "will modify and use the source for my personal use and will"
  317.             Print #i65528, Spc(6); "not distribute it or any derivative of it in any way."
  318.             Print #i65528,
  319.           End If
  320.  3503     Print #i65528, Spc(6); "Signed: ______________________________________  Date: ___________"
  321.           Print #i65528,
  322.           Print #i65528, Spc(6); "Mail this order form along with US$10.00 to:"
  323.           Print #i65528,
  324.           Print #i65528, Spc(6); "   Prasanth Pulavarthi"
  325.           Print #i65528, Spc(6); "   R.E. proFILES"
  326.           Print #i65528, Spc(6); "   2130 Sheraton Drive"
  327.           Print #i65528, Spc(6); "   Santa Clara, CA 95050-3331"
  328.           Print #i65528,
  329.           Print #i65528, Spc(6); "Make all checks and money orders payable to: PRASANTH PULAVARTHI."
  330.           Print #i65528, Chr(12)
  331.         End If
  332.  3674   Close i65528
  333.       End Sub
  334.  
  335. '! Called 11 times
  336.       Sub Sub3685
  337.         Cls 
  338.         SubText 1, t26_4463.s0
  339.         SubText 2, t26_4463.s25
  340.         SubText 3, Pad("Registration Form", 31)
  341.         SubText 4, t26_4463.s35
  342.         Print "@71@ ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄  ▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄ ";
  343.         Print "@71@  @1F@  @SUB1@ @SUB2@  @07@ @71@ @1F@  @SUB3@  @07@ @70@ @1F@  Compiled: @SUB4@  @07@ @70@ ";
  344.         Print "@70@  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀ ";
  345.         Print
  346.       End Sub
  347.  
  348. '! Called 1 time
  349.       Sub Sub3785
  350.         Dim o64410 As Boolean '! Temporary
  351.         Dim s64411 As String '! Temporary
  352.         Dim o64414 As Boolean '! Temporary
  353.         Dim l64415 As Long
  354.         Dim b64419 As Byte
  355.         Dim l64420 As Long
  356.         Dim b64424 As Byte
  357.         Dim b64425 As Byte
  358.         Dim s64426 As String
  359.         Dim t30_64430 As Type30
  360.  
  361.         Do
  362.  3794     Sub3685
  363.           t30_64430.s0 = InputMask("@0E@What is your real name? ", String(25, "X"), t30_64430.s0, 1213417543)
  364.           If t30_64430.s0 = "" Then
  365.             GoTo 5462
  366.           End If
  367.  3860     Sub3685
  368.           t30_64430.s225(0) = InputMask("@0E@What is your voice phone number? ", String(15, "X"), t30_64430.s225(0), 1213417543)
  369.           Sub3685
  370.           t30_64430.s225(1) = InputMask("@0E@What is your BBS phone number? ", String(15, "X"), t30_64430.s225(1), 1213417543)
  371.           Sub3685
  372.           Print "@0E@What is your mailing address? (Blank line ends)"
  373.  4075     For b64425 = 0 To 3 Step 1
  374.             t30_64430.s25(b64425) = InputMask("@0E@" + Str(b64425 + 1) + "/4: ", String(50, "X"), t30_64430.s25(b64425), 1213417543)
  375.             If t30_64430.s25(b64425) = "" Then
  376.               GoTo 4313
  377.             End If
  378.  4290     Next
  379.  4313     Sub3685
  380.           Print "@0E@What is your Internet address, if you have one?"
  381.           t30_64430.s255 = InputMask("", String(77, "X"), t30_64430.s255, 1213417543)
  382.           Sub3685
  383.           Print "@0E@[@0F@Y@0E@] Through a private message on Bruin Country BBS"
  384.           Print "@0E@[@0F@N@0E@] Through private e-mail on the Internet"
  385.           Print
  386.           t30_64430.o332 = InputYesNo("@0E@How would you like to receive the codes? ", t30_64430.o332)
  387.           If t30_64430.o332 Then
  388.             Print
  389.             Print "@0E@The following information is required for your account on Bruin Country BBS."
  390.             t30_64430.s333 = InputMask("@0E@Password? ", String(14, "X"), t30_64430.s333, 1213417543)
  391.             Print
  392.             t30_64430.s347 = InputMask("@0E@Birthdate for verification (@0F@mm/dd/yy@0E@)? ", String(8, "X"), t30_64430.s347, 1213417543)
  393.           End If
  394.  4544     Sub3685
  395.           t30_64430.o1105 = InputYesNo("@0E@Would you like to purchase a copy of the source code? ", t30_64430.o1105)
  396.           Sub3685
  397.           Print "@0E@Any comments? (Blank line ends)"
  398.  4613     For b64425 = 0 To 14 Step 1
  399.             t30_64430.s355(b64425) = InputMask("@0E@" + Str(b64425 + 1) + "/15: ", String(50, "X"), t30_64430.s355(b64425), 1213417543)
  400.             If t30_64430.s355(b64425) = "" Then
  401.               GoTo 4854
  402.             End If
  403.  4831     Next
  404.  4854     Sub3685
  405.           Sub2145((TempPath + "REGISTER.TMP"), t30_64430.s0, (-1))
  406.           Print "@0E@Now you will be able to verify the information you just entered."
  407.           WaitEnter 
  408.           Cls 
  409.           Print DefColor;
  410.           Del TempPath + "REGISTER.TMP"
  411.           Print
  412.           If (InputYesNo("Do you want to go back and change anything@YNDEF@? ", 0)) = 0 Then GoTo 4983
  413.         Loop
  414.  4983   Sub3685
  415.         Print "@0E@If you want to print this registration form to your printer, specifiy the port."
  416.         Print "@0A@Examples: PRN, LPT1, COM2"
  417.         Print
  418.         Print "@0E@If you want to save it to a file and print it later, specify the path and name."
  419.         Print "@0A@Examples: C:\ATMREG.FRM, C:\WILDCAT\WCATM\ATMREG.TXT"
  420.         Print
  421.         Print "@0E@What do you want to do with this registration form (@0F@ENTER@0E@ to discard)?"
  422.         Input s64426
  423.         If s64426 <> "" Then
  424.           Print "@03@Printing...";
  425.           Sub2145(s64426, t30_64430.s0, (0))
  426.           MoveLeft 80
  427.           ClrEOL 
  428.           Sub3685
  429.           Print "@0F@"; Chr(254); " @0E@The registration form has been printed or saved."
  430.           Print
  431.           If t30_64430.o1105 Then
  432.             Print "@0F@"; Chr(254); " @0E@The registration fee for proFILES and Source Code is @0A@$30.00@0E@ US currency."
  433.           Else
  434.  5180       Print "@0F@"; Chr(254); " @0E@The registration fee for proFILES is @0A@$10.00@0E@ US currency."
  435.           End If
  436.  5203     Print
  437.           Print "@0F@"; Chr(254); " @0E@Before you send in your registration form, be sure to sign it and date"
  438.           Print "  @0E@it and enclose the full amount in US currency."
  439.           Print
  440.           Print "@0F@"; Chr(254); " @0E@Please make all checks and money orders payable to: @0A@PRASANTH PULAVARTHI@0E@."
  441.           Print
  442.           If t30_64430.o332 Then
  443.             Print "@0F@"; Chr(254); " @0E@Please call Bruin Country BBS 408-246-3772 in one to two weeks after"
  444.             Print "  @0E@you mail the registration to pickup your key."
  445.             Print
  446.             Print "@0F@"; Chr(254); " @0E@Your account name on Bruin Country BBS is @0F@"; t30_64430.s0; "@0E@."
  447.             Print
  448.             Print "@0F@"; Chr(254); " @0E@You might want to write your account info down to use when you call."
  449.           Else
  450.  5383       Print "@0F@"; Chr(254); " @0E@You should receive e-mail with the key UUEncoded in about a week after"
  451.             Print "  @0E@you mail the registration."
  452.           End If
  453.  5415     Print
  454.           Print "@0F@"; Chr(254); " @0B@THANKS FOR REGISTERING "; t26_4463.s120 + "!!!"
  455.           WaitEnter 
  456.         End If
  457.  5462
  458.       End Sub
  459.